短消息

<% set rsydxx=server.createobject("adodb.recordset") sqlydxx="select jyrcwdxxid,jyrcwdxxper,jyrcwdxxcom,jyrcwdxxbt,jyrcwdxxnr,jyrcwdxxsj,jyrcwdxxyd,jyrcwdxxxgrhf FROM jyrcwdxx where jyrcwdxxid="&jyrcwdxxid&" and jyrcwdxxgrsc='0'" rsydxx.Open Sqlydxx , Conn , 1 , 1 If rsydxx.Eof Then %> <% Else jyrcwdxxper=rsydxx("jyrcwdxxper") jyrcwdxxcom=rsydxx("jyrcwdxxcom") jyrcwdxxbt=rsydxx("jyrcwdxxbt") jyrcwdxxnr=rsydxx("jyrcwdxxnr") jyrcwdxxsj=rsydxx("jyrcwdxxsj") jyrcwdxxyd=rsydxx("jyrcwdxxyd") jyrcwdxxxgrhf=rsydxx("jyrcwdxxxgrhf") %> <% dim Rssjx,duanxinxi,duanxinxi1,duanxinxi2 Set Rssjx = server.CreateObject("ADODB.recordset") Rssjx.Open "select jyrcwdxxid from jyrcwdxx where jyrcwdxxcom = '"& jyrcwdxxcom &"'" , Conn , 1 , 1 duanxinxi1 = Rssjx.RecordCount Rssjx.Close Rssjx.Open "select jyrcwdxxhfid from jyrcwdxxhf where jyrcwdxxhfcom = '"& jyrcwdxxcom &"'" , Conn , 1 , 1 duanxinxi2 = Rssjx.RecordCount Rssjx.Close set Rssjx=nothing duanxinxi=duanxinxi1+duanxinxi2 dim Rsqysj_p,jyrcwgrxm,PerPicc,MemberTypee,MemberBeginDatee,MemberEndDatee Set Rsqysj_p = server.CreateObject("ADODB.recordset") Rsqysj_p.Open "select CompanyName,ComPic,MemberType,MemberBeginDate,MemberEndDate from CompanyTbl where ComId ="& jyrcwdxxcom , Conn , 1 , 1 If Rsqysj_p.Eof Then ELse jyrcwgrxm=Rsqysj_p("CompanyName") PerPicc=Rsqysj_p("ComPic") MemberTypee=Rsqysj_p("MemberType") MemberBeginDatee=Rsqysj_p("MemberBeginDate") MemberEndDatee=Rsqysj_p("MemberEndDate") End If Rsqysj_p.Close Set Rsqysj_p=nothing if MemberBeginDatee="" or isnull(MemberBeginDatee) or MemberEndDatee="" or Isnull(MemberEndDatee) or DateDiff("d",now(),MemberEndDatee)<0 then MemberTypee=0 end if %>

<%if PerPicc="" or isnull(PerPicc) then%><%else%><%end if%>

发给：<%=jyrcwgrxm%>
时间：<%=jyrcw.formatdatee(jyrcwdxxsj,1)%>

<%=jyrcwdxxbt%>
<%if MemberType=0 then%><%=jyrcw.jyrcwdianhua(jyrcw.jyrcwdianhua(jyrcw.jyrcwwangzhi(jyrcw.jyrcwshouji(Jyrcw.chgStr2(jyrcwdxxnr)))))%><%else%><%=Jyrcw.chgStr2(jyrcwdxxnr)%><%end if%>

删除

<% End If rsydxx.Close Set rsydxx=nothing %> <% dim rsdxxhf,sqldxxhf,jyrcwdxxhfxxid,jyrcwdxxhfper,jyrcwdxxhfcom,jyrcwdxxhfsj,jyrcwdxxhflx,jyrcwdxxhfnrr,jyrcwdxxhfid set rsdxxhf=server.createobject("adodb.recordset") sqldxxhf="select * FROM jyrcwdxxhf where jyrcwdxxhfscgr='0' and jyrcwdxxhfxxid='"&jyrcwdxxid&"' order by jyrcwdxxhfsj asc" rsdxxhf.open sqldxxhf,conn,1,1 do while not rsdxxhf.eof jyrcwdxxhfid=Rsdxxhf("jyrcwdxxhfid") jyrcwdxxhfxxid=rsdxxhf("jyrcwdxxhfxxid") jyrcwdxxhfper=Rsdxxhf("jyrcwdxxhfper") jyrcwdxxhfcom=Rsdxxhf("jyrcwdxxhfcom") jyrcwdxxhfnrr=Rsdxxhf("jyrcwdxxhfnr") jyrcwdxxhfsj=Rsdxxhf("jyrcwdxxhfsj") jyrcwdxxhflx=Rsdxxhf("jyrcwdxxhflx") %>

<%if jyrcwdxxhflx="1" then%><%if PerPicc="" or isnull(PerPicc) then%><%else%><%end if%><%else%><%if PerPic="" or isnull(PerPic) then%><%else%><%end if%><%end if%>

来自：<%if jyrcwdxxhflx="1" then%><%=left(jyrcwgrxm,18)%><%else%><%=RealName%><%end if%>
时间：<%=jyrcw.formatdatee(jyrcwdxxhfsj,1)%>

<%if jyrcwdxxhflx="1" then%><%if MemberTypee=0 then%><%=jyrcw.jyrcwdianhua(jyrcw.jyrcwdianhua(jyrcw.jyrcwwangzhi(jyrcw.jyrcwshouji(Jyrcw.chgStr2(jyrcwdxxhfnrr)))))%><%else%><%=Jyrcw.chgStr2(jyrcwdxxhfnrr)%><%end if%><%else%><%=Jyrcw.chgStr2(jyrcwdxxhfnrr)%><%end if%>

删除

<%rsdxxhf.movenext loop rsdxxhf.close() Set rsdxxhf=Nothing %> <% jyrcwdxxhfnr = Jyrcw.chgStr(Trim(Request.Form("jyrcwdxxhfnr"))) If jyrcwdxxhfnr ="" or isnull(jyrcwdxxhfnr) Then else if duanxinxi>=Jyrcw.arrMember(16 , MemberTypee) then Jyrcw.ShowMsg "对不起，对方短信息条数已满，已不能回复！" , "chgcominfo_10_reada.asp?jyrcwdxxid="&jyrcwdxxid&"" else Set Rsdhf = server.CreateObject("ADODB.recordset") Rsdhf.Open "select * from jyrcwdxxhf where (jyrcwdxxhfid is null)" , Conn , 3 , 2 Rsdhf.AddNew Rsdhf("jyrcwdxxhfxxid") = jyrcwdxxid Rsdhf("jyrcwdxxhfper") = jyrcwdxxper Rsdhf("jyrcwdxxhfcom") = jyrcwdxxcom Rsdhf("jyrcwdxxhfnr") = jyrcwdxxhfnr Rsdhf("jyrcwdxxhfsj") = jyrcw.formatdatee(now(),1) Rsdhf("jyrcwdxxhflx") = "0" Rsdhf("jyrcwdxxhfscqy") = "0" Rsdhf("jyrcwdxxhfscgr") = "0" Rsdhf.Update Rsdhf.Close set Rsdhf=nothing Conn.Execute("update jyrcwdxx set jyrcwdxxxgrhf = '1' where jyrcwdxxid = "& jyrcwdxxid) Jyrcw.ShowMsg "短消息回复成功！" , "chgcominfo_10_reada.asp?jyrcwdxxid="&jyrcwdxxid&"" end if end if %>

<%if PerPic="" or isnull(PerPic) then%><%else%><%end if%>

我要回复：